home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
misc
/
wb_41e.zip
/
MCITEST.WB_
< prev
next >
Wrap
Text File
|
1992-02-26
|
210b
|
12 lines
last="???"
ErrorMode(@NOTIFY)
:loop
last=AskLine("MCI Command",last,last)
LastError()
b=playMedia(last)
if LastError()!=0 then goto loop
if b=="" then goto loop
Display(3,"MCI Results",b)
goto loop